home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / funkyzator.lha / fUnKyZaToR.amos / fUnKyZaToR.amosSourceCode < prev    next >
AMOS Source Code  |  1999-04-14  |  2KB  |  62 lines
  1. '        /---------------------\ 
  2. '        |  Funkyzator v1.1b   |       
  3. ' _______|---------------------|_______  
  4. '/                                     \ 
  5. '|   ...makes ya textfilez fUnKy!!     | 
  6. '|-------------------------------------- 
  7. '| known bugz:                         | 
  8. '| * the speed                         |   
  9. '| * sometimez i/o-errors (amos lack?) | 
  10. '|-------------------------------------| 
  11. '| N-JOY!                              |   
  12. '\-------> mailto:dl80@gmx.net <-------/ 
  13. '        |_____________________| 
  14. '  
  15. Screen Open 0,640,256,8,Hires
  16. Flash Off : Curs Off : Unpack 2 To 0
  17. Colour 4,$345 : Colour 5,$ABC : Colour 6,$0 : Pen 5 : Paper 0
  18. Print At(26,24);"welcome to funkyzator1.1b!"
  19. F$=Fsel$("SYS:","","Choose a Textfile!")
  20. If F$="" Then Fade 1 : Wait 25 : End 
  21. Hide 
  22. Print At(26,24);"    loading textfile...   "
  23. Open In 1,F$
  24. Reserve As Work 1,Lof(1)+128
  25. Bload F$,Start(1)
  26. C=0 : Shift Up 4,5,6,1
  27. Print At(26,24);"funkyzating... please wait"
  28. Repeat 
  29.    CHR=Peek(Start(1)+C)
  30.    If CHR>64 and CHR<91
  31.       Add V,1,0 To 1
  32.       If V=0
  33.          Poke Start(1)+C,CHR
  34.       Else 
  35.          Poke Start(1)+C,CHR+32
  36.       End If 
  37.    Else If CHR>96 and CHR<123
  38.       Add V,1,0 To 1
  39.       If V=0
  40.          Poke Start(1)+C,CHR
  41.       Else 
  42.          Poke Start(1)+C,CHR-32
  43.       End If 
  44.    Else 
  45.       Poke Start(1)+C,CHR
  46.    End If 
  47.    Inc C
  48. Until C=Lof(1)
  49. Shift Off 
  50. Colour 4,$345 : Colour 5,$ABC : Colour 6,$0 : Pen 5 : Paper 0
  51. Print At(26,24);"  funkyzating completed!  "
  52. Show 
  53. S$=Fsel$( Extension_8_03E0(F$), Extension_8_02F0(F$)+"2","Where to save?")
  54. If S$="" Then Fade 1 : Wait 25 : End 
  55. Hide 
  56. Print At(26,24);"  saving file to disk...  "
  57. Bsave S$,Start(1) To Start(1)+Lof(1)
  58. Print At(26,24);"thanx 4 using! LMB to quit"
  59. Close(1)
  60. Repeat : K$=Inkey$ : Until K$<>"" or Mouse Click
  61. Fade 1 : Wait 25
  62. End